###################################################
### chunk number 1: 
###################################################
library(grDevices)
library(grid)
ps.options(pointsize=12)
options(width=60)



###################################################
### chunk number 2: 
###################################################
gt <- textGrob("hi")
save(gt, file="mygridplot")



###################################################
### chunk number 3: 
###################################################
load("mygridplot")
grid.draw(gt)



###################################################
### chunk number 4: 
###################################################
grid.grill()
temp <- recordPlot()
save(temp, file="mygridplot")



###################################################
### chunk number 5: 
###################################################
load("mygridplot")
temp



###################################################
### chunk number 6:  eval=FALSE
###################################################
## grid.newpage()
## 


